myvar_0 = GetPrimitiveParameter(0)
local myvar_1 = 0
	if (GlobalObjManager["verifyObjectId"](GlobalObjManager, myvar_0) ~= 0) then 


	myvar_1 = GetPersonData(myvar_0, PersonData["neighbor id"])
end
	if (GlobalObjManager["verifyNeighborId"](GlobalObjManager, myvar_1) ~= 0) then 


end
for table["getn"](GlobalObjManager["getObjectIds"](GlobalObjManager, ObjectManager["kQuery_ByAccessibleRooms"], myvar_1))=nil, 1, -1 do 
	if (GetObjectData(GetObjectData(GlobalObjManager["getObjectIds"](GlobalObjManager, ObjectManager["kQuery_ByAccessibleRooms"], myvar_1)[table["getn"](GlobalObjManager["getObjectIds"](GlobalObjManager, ObjectManager["kQuery_ByAccessibleRooms"], myvar_1))], ObjData["lead tile object ID"]), ObjData["category"]) ~= 75) then
		if (GetObjectData(GetObjectData(GlobalObjManager["getObjectIds"](GlobalObjManager, ObjectManager["kQuery_ByAccessibleRooms"], myvar_1)[table["getn"](GlobalObjManager["getObjectIds"](GlobalObjManager, ObjectManager["kQuery_ByAccessibleRooms"], myvar_1))], ObjData["lead tile object ID"]), ObjData["category"]) ~= 77) then
			if (GetObjectData(GetObjectData(GlobalObjManager["getObjectIds"](GlobalObjManager, ObjectManager["kQuery_ByAccessibleRooms"], myvar_1)[table["getn"](GlobalObjManager["getObjectIds"](GlobalObjManager, ObjectManager["kQuery_ByAccessibleRooms"], myvar_1))], ObjData["lead tile object ID"]), ObjData["category"]) ~= 22) then
				if (GetObjectData(GetObjectData(GlobalObjManager["getObjectIds"](GlobalObjManager, ObjectManager["kQuery_ByAccessibleRooms"], myvar_1)[table["getn"](GlobalObjManager["getObjectIds"](GlobalObjManager, ObjectManager["kQuery_ByAccessibleRooms"], myvar_1))], ObjData["lead tile object ID"]), ObjData["category"]) == 26) then
			else
				table["remove"](GlobalObjManager["getObjectIds"](GlobalObjManager, ObjectManager["kQuery_ByAccessibleRooms"], myvar_1), table["getn"](GlobalObjManager["getObjectIds"](GlobalObjManager, ObjectManager["kQuery_ByAccessibleRooms"], myvar_1)))
			end
		end
	end
end
end
myvar_4 = table["getn"](GlobalObjManager["getObjectIds"](GlobalObjManager, ObjectManager["kQuery_ByAccessibleRooms"], myvar_1))
	if (0 < myvar_4) then
end
	if (GlobalObjManager["verifyObjectId"](GlobalObjManager, GlobalObjManager["getObjectIds"](GlobalObjManager, ObjectManager["kQuery_ByAccessibleRooms"], myvar_1)[math["random"](myvar_4)]) ~= 0) then 


	SetTemp(0, GlobalObjManager["getObjectIds"](GlobalObjManager, ObjectManager["kQuery_ByAccessibleRooms"], myvar_1)[math["random"](myvar_4)])
	SetScriptReturnValue(True)
else
	local myvar_7 = 0
	SetTemp(0, myvar_7)
	local myvar_6 = False
	SetScriptReturnValue(myvar_6)
end
return 
